home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / otherfiles / deutsch / ARexx / ced-flm.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-01  |  2KB  |  109 lines
  1. /* CED-FLM.ced uebersetzt das Wort, auf dem der CED-Cursor steht.
  2.  
  3.    (c) Markus Krajewski (a2647290@smail.rrz.Uni-Koeln.DE), 13.10.94, Ver.1.0
  4.  
  5.    Dieses Script laesst das Wort unter dem CED-Cursor von dem im Hintergrund
  6.    laufenden FLM uebersetzen.
  7.  
  8.  
  9. *****************************************************
  10. Achtung! Individuell anpassen: Programmpfad von FLM:
  11. *****************************************************
  12. */
  13.  
  14. path="PRG:FLM/"
  15.  
  16. /* ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++=
  17.  */
  18.  
  19. LF='0A'X
  20. initiation="run >nil: "||path||"FLM"
  21.  
  22. /* FLM wird geladen. */
  23.  
  24. IF ~show('P','FLM') THEN DO
  25.  ADDRESS COMMAND initiation
  26. END
  27.  
  28.  
  29. /* CED greift sich die zu uebersetzende Vokabel. */
  30.  
  31. OPTIONS RESULTS
  32.  
  33. ADDRESS 'rexx_ced'
  34.  
  35. GetWord
  36. word=RESULT
  37.  
  38. string = "Soll die Vokabel "||word||" uebersetzt werden? ..."
  39. OKAY2 string
  40. IF RESULT=0 THEN EXIT
  41.  
  42. /* FLM blaettert, ... */
  43.  
  44. ADDRESS 'FLM'
  45. LOOKWORD word
  46.  
  47. TAKEWORD
  48.  
  49. /* ... findet etwas ... */
  50.  
  51. IF Symbol('RESULT')='LIT' THEN EXIT
  52.  
  53. /*  und ruft es dem CED zu.*/
  54.  
  55. ADDRESS 'rexx_ced'
  56.  
  57. alternative=RESULT
  58.  
  59. translation=word||' ist uebersetzt mit: '||alternative||'.'||LF||'Andere Uebersetzung aus Liste wählen'||LF||'und anschließend CANCEL'||LF||'oder direkt weiter mit OK.'
  60.  
  61. OKAY2 translation
  62. IF RESULT=0 THEN DO
  63.  call NimmWort
  64. END
  65.  
  66. string ="Mit OK wird das urspruengliche Wort" || LF || "durch die Uebersetzung ausgetauscht."
  67.  
  68. OKAY2 string
  69. IF RESULT=0 THEN EXIT
  70.  
  71. alternative=alternative||' '
  72.  
  73. 'Prev word'
  74. 'Delete word'
  75. TEXT alternative
  76.  
  77. /* Das FLM-Fenster verschwindet */
  78.  
  79. ADDRESS 'FLM'
  80. QUIT
  81.  
  82.  
  83. EXIT
  84.  
  85.  
  86. /* Subroutine für alternative Vokabeln */
  87.  
  88. NimmWort:
  89.  
  90. ADDRESS 'FLM'
  91. TAKEWORD
  92.  
  93. IF Symbol('RESULT')='LIT' THEN EXIT
  94.  
  95. ADDRESS 'rexx_ced'
  96. alternative=RESULT
  97.  
  98. translation=word||' ist uebersetzt mit: '||alternative
  99.  
  100. OKAY2 translation
  101. IF RESULT=0 THEN DO
  102.  call NimmWort
  103.  Wait for 3
  104. END
  105.  
  106. RETURN
  107.  
  108.  
  109.